#!/usr/bin/env tclsh

set a 123w

if { [string is integer $a] } {
    puts "$a 是整数"
} else {
   puts "$a 不是整数"
   #error "$a 不是整数" 
}

#-----------------------------------------------
# alnum: 任何字母或数字字符
# alpha：任何字母字符
# ascii：具有7位字符编码的字符 ，小于128
# boolean：0,1，true,false(不区分大小写)
# control：字符编码小于32而又不是NULL的字符
# digit：任何数字字符
# double：有效浮点数
# false：0，false(不区分大小写)
# graph：不含空格字符在内的任何打印字符
# integer：有效整数
# lower：全为小写的字符串
# print：alnum的同义词
# punct：任何标点符号
# space：空格符，制表符，换行符，回车，垂直制表符，退格符
# true：1，true（不区分大小写）
# upper：全为大写的字符串
# wordchar：字母数字下划线
# xdigit：有效十六进制数字

